(Fchar_after, Fchar_before): Fix mixing of Lisp_Object

and int

diff --git a/src/editfns.c b/src/editfns.c
index 7699da52d9e06ef11fae83fa3b1e8f2e1f16892f..b007cbef83d8a39d6671e69538707155b712a030 100644 (file)
--- a/src/editfns.c
+++ b/src/editfns.c
@@ -579,7 +579,7 @@ If `enable-multibyte-characters' is nil or POS is not at character boundary,\n\
   else
     {
       CHECK_NUMBER_COERCE_MARKER (pos, 0);
-      if (pos < BEGV || pos >= ZV)
+      if (XINT (pos) < BEGV || XINT (pos) >= ZV)
        return Qnil;
       
       pos_byte = CHAR_TO_BYTE (XINT (pos));
@@ -614,7 +614,7 @@ is returned as a character.")
     {
       CHECK_NUMBER_COERCE_MARKER (pos, 0);
 
-      if (pos <= BEGV || pos > ZV)
+      if (XINT (pos) <= BEGV || XINT (pos) > ZV)
        return Qnil;
 
       pos_byte = CHAR_TO_BYTE (XINT (pos));